Sub Main()    dim i as string    i = "jose"    select case i    case "joe", getSomeValue()      msgbox("OK: i=jose")    default       msgbox("OK: Sorry, try again")    end select    msgbox("The END")end subFunction getSomeValue() as string      return "jose"End Function